library DiskSpace;

uses
  Windows,
  SysUtils,
  Classes,
  Core_Types in '..\..\Core_Types.pas',
  Form_Main in 'Form_Main.pas' {frmDiskSpace},
  AppInterface in '..\AppInterface.pas';

var
  PluginInterface : TPluginInterface;
  MI_Proc : Integer;

function ShowMainDialog : Integer;
begin
  AppFace._Application.CreateForm(TfrmDiskSpace, frmDiskSpace);
  frmDiskSpace.Show;
end;

function PluginLoad(AppIntrfc : PAppInterface; PluginInt : PPluginInterface) : Integer;
begin
  PluginInterface.Name := 'Disk Space';

  AppFace := AppIntrfc^;
  PluginInt^ := PluginInterface;

  MI_Proc := AppFace.PE_RegisterProc(@ShowMainDialog);
  AppFace.UI_AddMenuItem('Disk Space', MI_Proc);

  Result := 0;
end;

exports
  PluginLoad;

begin
end.
